#! /usr/bin/perl

use strict;
use diagnostics;
use Net::IP;

my $ip = new Net::IP('200.245.245.214');
unless($ip){die "nao eh ip\n"};
print( "IP VERSION: " . $ip->version() . "\n" );
print( "Int : " . $ip->intip() . "\n" );
